home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / gnumake / gnumake.zoo / diffs next >
Text File  |  1990-02-16  |  22KB  |  882 lines
  1. *** make-3.58/orig/arscan.c    Fri Oct 20 01:46:34 1989
  2. --- make-3.58/arscan.c    Fri Feb 16 21:15:10 1990
  3. ***************
  4. *** 24,30 ****
  5. --- 24,34 ----
  6.   #define PORTAR 1
  7.   #endif
  8.   
  9. + #ifdef GEMDOS
  10. + #include <gnu-ar.h>
  11. + #else
  12.   #include <ar.h>
  13. + #endif
  14.   #include <stdio.h>
  15.   #include <sys/types.h>
  16.   #include <sys/stat.h>
  17. ***************
  18. *** 266,271 ****
  19. --- 270,279 ----
  20.     if (!pos)
  21.       return 1;
  22.   
  23. + #ifdef GEMDOS
  24. +   if (utime(arname, 0L) < 0)    /* GEMDOS needs this to touch the file */
  25. +     return -3;
  26. + #endif
  27.     fd = open (arname, O_RDWR, 0666);
  28.     if (fd < 0)
  29.       return -3;
  30. ***************
  31. *** 280,286 ****
  32. --- 288,298 ----
  33.     if (sizeof ar_hdr != write (fd, (char *) &ar_hdr, sizeof ar_hdr))
  34.       goto lose;
  35.     /* The file's mtime is the time we we want.  */
  36. + #ifdef GEMDOS
  37. +   stat(arname, &statbuf);
  38. + #else
  39.     fstat (fd, &statbuf);
  40. + #endif
  41.   #ifdef ARFMAG
  42.     /* Advance member's time to that time */
  43.     for (i = 0; i < sizeof ar_hdr.ar_date; i++)
  44. *** make-3.58/orig/commands.c    Mon Feb 12 19:43:02 1990
  45. --- make-3.58/commands.c    Mon Feb 12 19:23:34 1990
  46. ***************
  47. *** 342,347 ****
  48. --- 342,348 ----
  49.        int sig;
  50.   {
  51.     signal (sig, SIG_DFL);
  52. + #ifndef GEMDOS
  53.   #ifndef USG
  54.     (void) sigsetmask (0);
  55.   #endif
  56. ***************
  57. *** 387,392 ****
  58. --- 388,394 ----
  59.       wait_for_children (0, 1);
  60.   
  61.     /* Delete any non-precious intermediate files that were made.  */
  62. + #endif /* GEMDOS */
  63.   
  64.     remove_intermediates (1);
  65.   
  66. *** make-3.58/orig/dir.c    Wed Oct  4 01:12:46 1989
  67. --- make-3.58/dir.c    Mon Jan 29 22:47:32 1990
  68. ***************
  69. *** 36,41 ****
  70. --- 36,47 ----
  71.   #endif    /* USGr3 or DIRENT.  */
  72.   
  73.   
  74. + #ifdef GEMDOS
  75. + #define HASH_LIMIT 8    /* only consider this many characters of file names */
  76. + static short _limit = 0;
  77. + #endif
  78. + 
  79. + 
  80.   /* Hash table of directories.  */
  81.   
  82.   struct directory
  83. ***************
  84. *** 83,94 ****
  85. --- 89,108 ----
  86.     register char *p;
  87.     register struct directory *dir;
  88.   
  89. + #ifdef GEMDOS
  90. +   for (p = name, _limit = HASH_LIMIT; *p != '\0' && _limit-- > 0; ++p)
  91. + #else
  92.     for (p = name; *p != '\0'; ++p)
  93. + #endif
  94.       HASH (hash, *p);
  95.     hash %= DIRECTORY_BUCKETS;
  96.   
  97.     for (dir = directories[hash]; dir != 0; dir = dir->next)
  98. + #ifdef GEMDOS
  99. +     if (DOS_streq (dir->name, name))
  100. + #else
  101.       if (streq (dir->name, name))
  102. + #endif
  103.         break;
  104.   
  105.     if (dir == 0)
  106. ***************
  107. *** 151,157 ****
  108. --- 165,175 ----
  109.       /* Checking if the directory exists.  */
  110.       return 1;
  111.   
  112. + #ifdef GEMDOS
  113. +       for (p = filename,_limit = HASH_LIMIT; *p != '\0' && _limit-- > 0; ++p)
  114. + #else
  115.         for (p = filename; *p != '\0'; ++p)
  116. + #endif
  117.       HASH (hash, *p);
  118.         hash %= DIRFILE_BUCKETS;
  119.   
  120. ***************
  121. *** 158,164 ****
  122. --- 176,186 ----
  123.         /* Search the list of hashed files.  */
  124.   
  125.         for (df = dir->files[hash]; df != 0; df = df->next)
  126. + #ifdef GEMDOS
  127. +     if (DOS_streq (df->name, filename))
  128. + #else
  129.       if (streq (df->name, filename))
  130. + #endif
  131.         return !df->impossible;
  132.       }
  133.   
  134. ***************
  135. *** 174,180 ****
  136. --- 196,206 ----
  137.         /* Enter the file in the hash table.  */
  138.         register unsigned int newhash = 0;
  139.         register unsigned int i;
  140. + #ifdef GEMDOS
  141. +       for (i = 0, _limit = HASH_LIMIT; i < D_NAMLEN(d) && _limit-- > 0; ++i)
  142. + #else
  143.         for (i = 0; i < D_NAMLEN(d); ++i)
  144. + #endif
  145.       HASH (newhash, d->d_name[i]);
  146.         newhash %= DIRFILE_BUCKETS;
  147.         df = (struct dirfile *) xmalloc (sizeof (struct dirfile));
  148. ***************
  149. *** 184,191 ****
  150.         df->impossible = 0;
  151.   
  152.         /* Check if the name matches the one we're searching for.  */
  153. !       if (filename != 0
  154. !       && newhash == hash && streq (d->d_name, filename))
  155.       return 1;
  156.       }
  157.   
  158. --- 210,222 ----
  159.         df->impossible = 0;
  160.   
  161.         /* Check if the name matches the one we're searching for.  */
  162. !       if (filename != 0 && newhash == hash 
  163. ! #ifdef GEMDOS
  164. !       && DOS_streq (d->d_name, filename)
  165. ! #else
  166. !       && streq (d->d_name, filename)
  167. ! #endif
  168. !                     )
  169.       return 1;
  170.       }
  171.   
  172. ***************
  173. *** 251,257 ****
  174. --- 282,293 ----
  175.         filename = p = dirend + 1;
  176.       }
  177.   
  178. + #ifdef GEMDOS
  179. +   _limit = HASH_LIMIT;
  180. +   for (hash = 0; *p != '\0' && _limit-- > 0; ++p)
  181. + #else
  182.     for (hash = 0; *p != '\0'; ++p)
  183. + #endif
  184.       HASH (hash, *p);
  185.     hash %= DIRFILE_BUCKETS;
  186.   
  187. ***************
  188. *** 300,311 ****
  189. --- 336,356 ----
  190.       /* There are no files entered for this directory.  */
  191.       return 0;
  192.   
  193. + #ifdef GEMDOS
  194. +   _limit = HASH_LIMIT;
  195. +   for (hash = 0; *p != '\0' && _limit-- > 0; ++p)
  196. + #else
  197.     for (hash = 0; *p != '\0'; ++p)
  198. + #endif
  199.       HASH (hash, *p);
  200.     hash %= DIRFILE_BUCKETS;
  201.   
  202.     for (next = dir->files[hash]; next != 0; next = next->next)
  203. + #ifdef GEMDOS
  204. +     if (DOS_streq (filename, next->name))
  205. + #else
  206.       if (streq (filename, next->name))
  207. + #endif
  208.         return next->impossible;
  209.   
  210.     return 0;
  211. ***************
  212. *** 381,383 ****
  213. --- 426,469 ----
  214.       printf ("%u", impossible);
  215.     printf (" impossibilities in %u directories.\n", dirs);
  216.   }
  217. + 
  218. + #ifdef GEMDOS
  219. + /* checks to see if two names refer to the same file */
  220. + int DOS_streq(name1, name2)
  221. + char *name1, *name2;
  222. + {
  223. +     static char _name1[64], _name2[64];
  224. +     char *lastslash;
  225. +     extern char *rindex();
  226. +     int i;
  227. + 
  228. +     if (!strcmp(name1, name2)) return 1;
  229. + 
  230. +     unx2dos(name1, _name1);
  231. +     unx2dos(name2, _name2);
  232. + 
  233. +     name1 = rindex(_name1, '\\'); if (!name1) name1 = _name1;
  234. +     name2 = rindex(_name2, '\\'); if (!name2) name2 = _name2;
  235. +     for(i = 8; i>0; i--) {
  236. +         if (*name1 != *name2) return 0;
  237. +         if (*name1 == 0)
  238. +             return 1;
  239. +         if (*name1 == '.')
  240. +             goto doext;
  241. +         name1++; name2++;
  242. +     }
  243. + 
  244. + /* now look for extension */
  245. +     while (*name1 && *name1 != '.') name1++;
  246. +     while (*name2 && *name2 != '.') name2++;
  247. +     if (*name1 != *name2) return 0;
  248. + doext:
  249. +     name1++; name2++;
  250. +     for (i = 3; i > 0; i--) {
  251. +         if (*name1 != *name2) return 0;
  252. +         if (!*name1) return 1;
  253. +         name1++; name2++;
  254. +     }
  255. +     return 1;
  256. + }
  257. + #endif /* GEMDOS */
  258. *** make-3.58/orig/function.c    Mon Feb 12 19:43:06 1990
  259. --- make-3.58/function.c    Mon Feb 12 19:24:16 1990
  260. ***************
  261. *** 337,342 ****
  262. --- 337,345 ----
  263.       else
  264.         buf[0] = '\0';
  265.   
  266. + #ifdef GEMDOS
  267. +     perror_with_name (buf, "function not allowed under GEMDOS");
  268. + #else
  269.       if (pipe (pipedes) < 0)
  270.         {
  271.           perror_with_name (buf, "pipe");
  272. ***************
  273. *** 430,435 ****
  274. --- 433,439 ----
  275.           free (buffer);
  276.         }
  277.   
  278. + #endif /* GEMDOS */
  279.       free (text);
  280.       break;
  281.         }
  282. *** make-3.58/orig/job.c    Mon Feb 12 19:43:12 1990
  283. --- make-3.58/job.c    Tue Feb 13 18:50:50 1990
  284. ***************
  285. *** 23,28 ****
  286. --- 23,34 ----
  287.   #include "variable.h"
  288.   #include <errno.h>
  289.   
  290. + #ifdef GEMDOS
  291. + #include <ctype.h>
  292. + extern char *findfile();
  293. + static char *_extensions[] = { "ttp", "prg", "tos", 0 };
  294. + #endif
  295. + 
  296.   extern int errno;
  297.   
  298.   #if    defined(USG) && !defined(HAVE_VFORK)
  299. ***************
  300. *** 33,39 ****
  301.   #endif    /* USG and don't have vfork.  */
  302.   extern int vfork ();
  303.   
  304. ! #if    defined(HAVE_SYS_WAIT) || !defined(USG)
  305.   #include <sys/wait.h>
  306.   #include <sys/time.h>
  307.   #include <sys/resource.h>
  308. --- 39,45 ----
  309.   #endif    /* USG and don't have vfork.  */
  310.   extern int vfork ();
  311.   
  312. ! #if    (defined(HAVE_SYS_WAIT) || !defined(USG)) && !defined(GEMDOS)
  313.   #include <sys/wait.h>
  314.   #include <sys/time.h>
  315.   #include <sys/resource.h>
  316. ***************
  317. *** 62,67 ****
  318. --- 68,84 ----
  319.   
  320.   #else    /* WTERMSIG not defined and have <sys/wait.h> or not USG.  */
  321.   
  322. + # ifdef GEMDOS
  323. + #  define WAIT_T int
  324. + #  define WTERMSIG(x) 0
  325. + #  define WCOREDUMP(x) 0
  326. + #  define WEXITSTATUS(x)  x
  327. + #  define WIFSIGNALED(x) (WTERMSIG (x) != 0)
  328. + #  define WIFEXITED(x) (WTERMSIG (x) == 0)
  329. + 
  330. + # else
  331. + 
  332. + 
  333.   #define WAIT_T union wait
  334.   #define WTERMSIG(x) ((x).w_termsig)
  335.   #define WCOREDUMP(x) ((x).w_coredump)
  336. ***************
  337. *** 70,75 ****
  338. --- 87,94 ----
  339.   #define    WIFSIGNALED(x)    (WTERMSIG(x) != 0)
  340.   #endif
  341.   
  342. + #endif  /* GEMDOS */
  343. + 
  344.   #endif    /* WTERMSIG defined or USG and don't have <sys/wait.h>.  */
  345.   
  346.   
  347. ***************
  348. *** 153,159 ****
  349. --- 172,180 ----
  350.        Using the default action does the right thing.  */
  351.     (void) signal (SIGCLD, SIG_DFL);
  352.   #else
  353. + # ifndef GEMDOS
  354.     (void) sigblock (sigmask (SIGCHLD));
  355. + # endif
  356.   #endif
  357.   
  358.     block_remote